Top 10k strings from Mini Office - Database (1985)(Database Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 K$="SELECT OPTION":
   2 R+" RECORD(S) ENTERED":
   2 K$="OPTION "+W$+" SELECTED":
   2 D$(R0,NS,LS)
   2 ;F$(A);":":
   2 ;"REPLACING";
   2 '"THIS IS A ";:
   2 "STRING FIELD":
   2 "NUMERIC FIELD":
   1 put RECORD number: ";:
   1 W$="NDMA":
   1 W$="ABCD":
   1 Tape error.
   1 T;" to: ";:
   1 T,U;"FIELD TITLE: ":
   1 T$(A)="S":
   1 RECORD DELETED
   1 R0+" RECORDS":
   1 ONLY ONE RECORD ENTERED
   1 O(V)=-O(V):
   1 MINI OFFICE DATABASE
   1 K+" FIELDS REPLACED":
   1 K$="ZERO RECORDS ENTERED":
   1 K$="ROOM FOR ONLY "+
   1 K$="PRESS ANY KEY FOR MENU":
   1 K$="OPTION "+W$+" SEL
   1 K$="NO MORE RECORDS FOUND TO MATCH":
   1 K$="NO MATCH FOUND":
   1 K$="MEMORY FULL":
   1 K$="MAXIMUM OF "+
   1 K$="IS THIS CORRECT (Y/N)?":
   1 K$="FILE NOT SETUP - use option B":
   1 K$="END OF RANGE SPECIFIED":
   1 K$="ARE YOU SURE (Y/N)?":
   1 K$="(N)ext record, (M)enu":
   1 K$="(N)ext (D)elete (A)lter (M)enu":
   1 K$="(M)odify rec, (R)eturn to menu":
   1 K$="(M)enu, (N)ext record, (A)lter":
   1 ILLEGAL SELECTION
   1 File verified and O.K.
   1 F$(O);":";:
   1 Enter the name of the file to be
   1 END PROGRAMK
   1 D(O(V),K(O))
   1 D(O(V),K(E))=U:
   1 D(O(R),K(A))=B
   1 D(O(Q),K(A))=B
   1 D(O(Q),K(A))
   1 D(O(A),K(O))
   1 D(1,1)=T=U=NM=D$(1,1,1)=G$=LS=NS=H=O(1)=R=S$(1)=E$(1)=T$(1,1)=R0=
   1 D$(O(V),K(O)):
   1 D$(O(V),K(E))=K$:
   1 D$(O(V),K(E))=D$(O(V),K(E),
   1 D$(O(R),K(A))=S$:
   1 D$(O(Q),K(A))=S$:
   1 D$(O(Q),K(A)):
   1 D$(O(A),K(O)):
   1 Break pressed.
   1 ARE YOU SURE (Y/N)?
   1 ;F$(O);":";:
   1 ;F$(A);":";
   1 ;"SORTING";
   1 ;"SORTED ";:
   1 ;"SORT FIELD ";T;": ":
   1 ;"SELECT OPTION":
   1 ;"SELECT OPTION"
   1 ;"SEARCHING";
   1 ;"M E N U":
   1 ;"LENGTH";
   1 ;"IS THIS CORRECT (Y/N)?";
   1 ;"How many FIELDS per record? ";:
   1 ;"FIELD ORDER IS: ";:
   1 ;"FIELD No.";A:
   1 ;"CORRECT WHICH FIELD? ";
   1 ;"(1 to 12)";
   1 :D\2p\2G\*B\"n\"E\>
   1 0 RECORD(S) ENTERED
   1 ,U;"FIELD TYPE (S/N): ";
   1 ,U;"FIELD LENGTH: ";:
   1 +A);">  ";G$:
   1 *E\"n\!G\4~2p\:D\
   1 )/(NS*LS+5
   1 )+K$+D$(O(V),K(E),B+
   1 (W$(O))+32
   1 (R0-R)+" RECORD(S)":
   1 (F(A));F(A);
   1 ''"VALUE a:";:
   1 ''"SORT ON FIELD 1: ";F$(1
   1 ''"SEARCH ON WHICH FIELD (1-";F;")?";:
   1 ''"REWIND THE TAPE"':
   1 ''"REPLACE ON WHICH FIELD (1-";F;")?";:
   1 ''"Input range"''"From: ";:
   1 ''"INPUT SEARCH VALUE X:";:
   1 ''"INPUT SEARCH STRING:";:
   1 ''"INPUT SEARCH STRING: ";:
   1 ''"INPUT REPLACE VALUE:";:
   1 ''"INPUT REPLACE STRING:";:
   1 ''"Do you  wish to SAVE"'"the data file (Y/N)?"
   1 ''"<A> SEARCH FOR A VALUE X"'"<B> SEARCH FOR VALUES >X"'"<C> SEARCH FOR VALUES <X"'"<D> SEARCH FOR a<X<b RANGE"
   1 ''"<A> SEARCH FOR A SPECIFIC STRING"'"<B> SEARCH FOR PART-STRING":
   1 ''"<A> REPLACE WHOLE STRING FIELD"'"<B> REPLACE PART-STRING FIELD":
   1 '"VALUE b:";:
   1 '"SELECT UP TO ";U;" FIELDS FOR SORT":
   1 '"RECORD No.";Q:
   1 '"INPUT SEARCH VALUE:";:
   1 '" <A> SORT INTO ASCENDING ORDER"'" <B> SORT INTO DESCENDING ORDER"''"
   1 "SETUP MODE:";
   1 "SEARCH ON FIELD ";E;": ";F$(E):
   1 "SEARCH AND REPLACE MODE:":
   1 "REPLACE ON FIELD ";E;":";F$(E):
   1 "RECORD No.";R:
   1 "RECORD No.";A:
   1 "RECORD No. ";V:
   1 "NUMERIC":
   1 "MULTI-FIELD SORT MODE:":
   1 "MODIFY MODE:"''"In
   1 "LOAD OLD FILE","SETUP NEW FILE","ADD RECORDS","FIELD SUMMARY","MODIFY RECORD","LIST RECORDS","FIELD SEARCH","REPLACE FIELD","MULTI-FIELD SORT","SAVE CURRENT FILE","END PROGRAM"
   1 "LIST RECORDS MODE: "''''"  <A> LIST RECORDS TO SCREEN"''"  <B> LIST RECORDS TO PRINTER"''''
   1 "FIELD-SEARCH MODE:":
   1 "Do you wish to VERIFY "'"the file (Y/N)?":
   1 "DEFINITION OF FIELD";:
   1 "DATA FILE LOADED"''"PRESS ANY KEY FOR MENU":
   1 "ADD RECORD MODE:"
   1  SELECT OPTION";:
   1  DATABASE PUBLICATIONS